Dim counter As Byte

Private Sub Command1_Click()
Image1(counter).Visible = False

If (counter < 9) Then
    counter = counter + 1
Else
    counter = 1
End If
Image1(counter).Visible = True


End Sub

Private Sub Command2_Click()
Image1(counter).Visible = False

If (counter > 1) Then
    counter = counter - 1
Else
    counter = 9
End If
Image1(counter).Visible = True
End Sub

Private Sub Form_Load()
Load Image1(1)
Load Image1(2)
Load Image1(3)
Load Image1(4)
Load Image1(5)
Load Image1(6)
Load Image1(7)
Load Image1(8)
Load Image1(9)

Image1(1).Picture = LoadPicture("shz\im1.JPG")
Image1(2).Picture = LoadPicture("shz\im2.JPG")
Image1(3).Picture = LoadPicture("shz\im3.JPG")
Image1(4).Picture = LoadPicture("shz\im4.JPG")
Image1(5).Picture = LoadPicture("shz\im5.JPG")
Image1(6).Picture = LoadPicture("shz\im6.JPG")
Image1(7).Picture = LoadPicture("shz\im7.JPG")
Image1(8).Picture = LoadPicture("shz\im8.JPG")
Image1(9).Picture = LoadPicture("shz\im9.JPG")


Image1(1).Visible = True
Image1(2).Visible = False
Image1(3).Visible = False
Image1(4).Visible = False
Image1(5).Visible = False
Image1(6).Visible = False
Image1(7).Visible = False
Image1(8).Visible = False
Image1(9).Visible = False

counter = 1
End Sub
